The CICA Windows Explosion!/The CICA Windows Explosion! - Disc 1.iso/desktop/mnyth2.zip/SETUP.FRM

Text File | 1994-02-14 | 11KB | 346 lines

VERSION 2.00
Begin Form SetupForm
   BorderStyle     =   3  'Fixed Double
   Caption         =   "Many Things"
   ClientHeight    =   5565
   ClientLeft      =   2475
   ClientTop       =   1650
   ClientWidth     =   5505
   Height          =   5970
   Left            =   2415
   LinkTopic       =   "Form2"
   MaxButton       =   0   'False
   MinButton       =   0   'False
   ScaleHeight     =   5565
   ScaleWidth      =   5505
   Top             =   1305
   Width           =   5625
   Begin CheckBox LowMemoryCheck
      Caption         =   "Low Memory Mode"
      Height          =   270
      Left            =   1935
      TabIndex        =   7
      Top             =   4275
      Width           =   2115
   End
   Begin CheckBox RandomFlagCheck
      Caption         =   "Random Sequence"
      Height          =   240
      Left            =   1935
      TabIndex        =   8
      Top             =   4680
      Width           =   2130
   End
   Begin TextBox TxtStartSaver
      Height          =   315
      Left            =   4815
      TabIndex        =   5
      Text            =   "0"
      Top             =   3465
      Width           =   615
   End
   Begin TextBox txtBmpSeconds
      Height          =   315
      Left            =   4815
      TabIndex        =   4
      Text            =   "5"
      Top             =   3105
      Width           =   615
   End
   Begin TextBox txtBmpsDir
      Height          =   315
      Left            =   3150
      TabIndex        =   6
      Text            =   "c:\windows"
      Top             =   3825
      Width           =   2280
   End
   Begin TextBox txtMaxCums
      Height          =   315
      Left            =   4815
      TabIndex        =   2
      Text            =   "1000"
      Top             =   2385
      Width           =   615
   End
   Begin TextBox txtChangeMin
      Height          =   315
      Left            =   4815
      TabIndex        =   3
      Text            =   "5"
      Top             =   2745
      Width           =   615
   End
   Begin TextBox txtRepeatCount
      Height          =   315
      Left            =   4815
      TabIndex        =   1
      Text            =   "10"
      Top             =   2025
      Width           =   615
   End
   Begin TextBox txtMaxLines
      Height          =   315
      Left            =   4815
      TabIndex        =   0
      Text            =   "100"
      Top             =   1665
      Width           =   615
   End
   Begin CommandButton cmdCancel
      Cancel          =   -1  'True
      Caption         =   "Cancel"
      Height          =   375
      Left            =   2970
      TabIndex        =   10
      Top             =   5040
      Width           =   1095
   End
   Begin CommandButton cmdOK
      Caption         =   "OK"
      Default         =   -1  'True
      Height          =   375
      Left            =   1575
      TabIndex        =   9
      Top             =   5055
      Width           =   1095
   End
   Begin Label Label11
      Caption         =   "Starting Saver (0=random):"
      Height          =   225
      Left            =   2430
      TabIndex        =   20
      Top             =   3510
      Width           =   2325
   End
   Begin Label Label9
      Caption         =   "Seconds before changing pictures in slide show:"
      Height          =   255
      Left            =   690
      TabIndex        =   19
      Top             =   3150
      Width           =   4170
   End
   Begin Label Label8
      Caption         =   "Location of bitmaps for slide show:"
      Height          =   255
      Left            =   135
      TabIndex        =   18
      Top             =   3870
      Width           =   2985
   End
   Begin Label Label7
      Caption         =   "Maximum number of objects before clearing screen:"
      Height          =   255
      Left            =   300
      TabIndex        =   17
      Top             =   2430
      Width           =   4485
   End
   Begin Label Label6
      Caption         =   "Minutes before changing to new saver:"
      Height          =   255
      Left            =   1395
      TabIndex        =   16
      Top             =   2775
      Width           =   3375
   End
   Begin Label Label5
      Caption         =   "Number of new objects before changing colors:"
      Height          =   255
      Left            =   720
      TabIndex        =   15
      Top             =   2040
      Width           =   4035
   End
   Begin Label Label4
      Caption         =   "Maximum number of objects before erasing old objects:"
      Height          =   255
      Left            =   90
      TabIndex        =   14
      Top             =   1710
      Width           =   4740
   End
   Begin Image Image1
      Height          =   480
      Left            =   180
      Picture         =   SETUP.FRX:0000
      Top             =   405
      Width           =   480
   End
   Begin Label Label3
      Alignment       =   2  'Center
      Caption         =   "Version 2.0"
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   240
      Left            =   2085
      TabIndex        =   13
      Top             =   555
      Width           =   1260
   End
   Begin Label Label2
      Caption         =   "Multiple Screen Savers by  Bruce McLean"
      Height          =   255
      Left            =   1050
      TabIndex        =   12
      Top             =   150
      Width           =   3555
   End
   Begin Label Label1
      Alignment       =   2  'Center
      Caption         =   "This is a collection of screen savers that switch at regular intervals to add a bit of variety to the screen."
      FontBold        =   0   'False
      FontItalic      =   0   'False
      FontName        =   "Arial"
      FontSize        =   8.25
      FontStrikethru  =   0   'False
      FontUnderline   =   0   'False
      Height          =   495
      Left            =   780
      TabIndex        =   11
      Top             =   1005
      Width           =   3855
   End
End
Option Explicit

Sub cmdCancel_Click ()

    End ' end program

End Sub

Sub cmdOK_Click ()
    Dim i As Integer

    If RandomFlagCheck.Value = 1 Then
        RandomFlag = 1
    Else
        RandomFlag = 0
    End If

    If LowMemoryCheck.Value = 1 Then
        LowMemoryFlag = 1
    Else
        LowMemoryFlag = 0
    End If

    'remove trailing \ from directory
    If Right$(txtBmpsDir, 1) = "\" Then
      txtBmpsDir = Left$(txtBmpsDir, Len(txtBmpsDir) - 1)
    End If

    ' store setup data in control.ini
    i = WritePrivateProfileString(secName, keyName, txtMaxLines, iniName)
    i = WritePrivateProfileString(secName, RepeatName, txtRepeatCount, iniName)
    i = WritePrivateProfileString(secName, ChangeMinutesName, txtChangeMin, iniName)
    i = WritePrivateProfileString(secName, MaxCumsName, txtMaxCums, iniName)
    i = WritePrivateProfileString(secName, BmpsDirName, txtBmpsDir, iniName)
    i = WritePrivateProfileString(secName, BmpSecondsName, txtBmpSeconds, iniName)
    i = WritePrivateProfileString(secName, RandomFlagName, Str$(RandomFlag), iniName)
    i = WritePrivateProfileString(secName, LowMemoryFlagName, Str$(LowMemoryFlag), iniName)
    i = WritePrivateProfileString(secName, StartSaverName, txtStartSaver, iniName)

    On Error GoTo 1000
    If Dir$(txtBmpsDir & "\*.bmps") = "" Then
        MsgBox "Bitmaps not found in:" + Chr$(10) + txtBmpsDir + "\" + Chr$(10) + "Need to change location" + Chr$(10) + "of bitmaps to use", 48, "Many Things"
    End If
    On Error GoTo 0

    End ' end program

1000 ' could not find path
    On Error GoTo 0
    Resume 1001
1001 MsgBox "Directory not found" + Chr$(10) + "for location of bitmaps:" + Chr$(10) + txtBmpsDir + "\", 48, "Many Things"
    End

End Sub

Sub Form_Load ()
    txtMaxLines = maxLines      ' Set to current max lines
    txtRepeatCount = RepeatCount
    txtChangeMin = MaxChangeMinutes
    txtMaxCums = MaxCums
    txtMaxLines.SelLength = 3   ' Select the current value
    txtBmpsDir = BitmapsDir
    txtBmpSeconds = BmpSeconds
    If RandomFlag <> 0 Then
      RandomFlagCheck.Value = 1
    Else
      RandomFlagCheck.Value = 0
    End If

    If LowMemoryFlag <> 0 Then
      LowMemoryCheck.Value = 1
    Else
      LowMemoryCheck.Value = 0
    End If

    txtStartSaver = StartSaver

End Sub

Sub txtBmpSeconds_KeyPress (KeyAscii As Integer)
    If KeyAscii < 32 Then
        '                       ' Let Ctrl keys pass through
    ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0            ' Discard chars other than digits
    End If

End Sub

Sub txtChangeMin_KeyPress (KeyAscii As Integer)
    If KeyAscii < 32 Then
        '                       ' Let Ctrl keys pass through
    ElseIf KeyAscii = Asc(".") Then ' only 1 decimal
      If InStr(txtChangeMin, ".") > 0 Then
        KeyAscii = 0            ' Discard extra decimals
      End If
    ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0            ' Discard chars other than digits
    End If

End Sub

Sub txtMaxCums_KeyPress (KeyAscii As Integer)
    If KeyAscii < 32 Then
        '                       ' Let Ctrl keys pass through
    ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0            ' Discard chars other than digits
    End If

End Sub

Sub txtMaxLines_KeyPress (KeyAscii As Integer)
    If KeyAscii < 32 Then
        '                       ' Let Ctrl keys pass through
    ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0            ' Discard chars other than digits
    End If
End Sub

Sub txtRepeatCount_KeyPress (KeyAscii As Integer)
    If KeyAscii < 32 Then
        '                       ' Let Ctrl keys pass through
    ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0            ' Discard chars other than digits
    End If

End Sub

Sub TxtStartSaver_KeyPress (KeyAscii As Integer)
    If KeyAscii < 32 Then
        '                       ' Let Ctrl keys pass through
    ElseIf KeyAscii < Asc("0") Or KeyAscii > Asc("9") Then
        KeyAscii = 0            ' Discard chars other than digits
    End If

End Sub